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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
® 
® 
« 
o 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONL CORDANCE WITH THE TERMS OF SUCH. LICENSE AND WITH THE 
tt 

PRO * 

OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
TRANSFERRED. 5 
* 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. . 
® 

* 

* 

® 

® 

* 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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MESSAGE OUTPUT ROUTINES 
D. N. CUTLER 28-MAR-77 
MODIFIED BY: 
v03-010 HwWS0065 Harold Schultz fed hd 
Use a sensarery RAB built on stack when flush op outa 
to a batch log file instead of current output RAB. 


v03-009 HWS0058 Harold Schultz 12-Apr-1984 
Add DCLSSPAWNOUT message routine for SPAWN since it 
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doesn't have valid pointer to work area.(Must be same 
as DCLSMSGOUT. 
0 v03-008 PCGo008 Peter George 02-Mar-1984 
8 Move inhibit message bit test. 
0 v03-007 HWS0014 Harold Schultz 21-Feb-1984 
0 If current error number equal to RMS STS value in 
4 PRC_L_STS, signal both the STS and STV messages. 
00 v03-006 PCG0007 Peter George 21-Nov-1983 
BS Fix bug in enecifying record for SFLUSH. 
00 v03-005 PCG0006 Peter George 2 29-Jun-1983 
88 Handle event flags more intelligently. 
oF v03-004 PCG0005 Peter George 24-Jun-1983 
0 Fix broken branch. 
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0 i 
35 3 v03-004 PCG0004 Peter George 15-Jun-1983 
60 ; Do not special case negative sta epuse 
61 ; Return non-zero status when call ng SET OUTPUT_RATE 
$6 3 interactively. Change order of $FLUSH and SSETTIMER 
8 o7 3 in flush ast routine. 
00 65 ; v03-003 PCG0003 r George 30-Apr-1983 
000 66 : Ad DCLSFLUSH_ oureur. 
444 ef 3 Fix order of args but in $PUTMSG call. 
8008 § : v03-002 PCG0002 Peter George 21-Mar-1983 
8000 y 3 Add DCLSFORMMSG. 
0000 ue 3 v03-001 G0001 Peter George 07-Jan-1983 
0000 > 3 Use SPUTMSG to eytout command segment. 
0000 74; Delete DCLSERROUT 
0000 75 3 
0000 16 jee 
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SSAGE 4=SEP=-19 DCL.SRCJMESSAGE .MAR; 1 
~SBTTL OUTPUT ERROR MESSAGE 
; DCLSERRORMSG = OUTPUT ERROR MESSAGE 


; THIS ROUTINE IS CALLED TO OUTPUT ys — MESSAGE AND DISPLAY THE SEGMENT 
OF THE COMMAND LINE THAT IS IN ERR 


oO 
G 
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om 
cm 
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oo 


GE PU 
T ER ME 
8 94 
95 ; 
0 3 3 
00 (OR: 
a0) 3 
909 18 ; INPUTS: 
000 198 : RO = ERROR NUMBER. 
000 104 ; WRK_L_MARKPTR = ADDRESS OF START OF TOKEN IN EXPANSION BUFFER. 
44 193 $ WRK_L_EXPANDPTR = ADDRESS OF N et re IN EXPANSION BUFFER. 
1 : 3 R10 = BASE ADDRESS OF COMMAND WORK AREA. 
Boos + : R11 = BASE ADDRESS OF PROCESS WORK AREA. 
6000 109 : OUTPUTS: 
44 111 : THE APPROPRIATE ERROR + pa IS DISPLAYED ALONG WITH THE SEGMENT OF 
9000 a2: THE COMMAND LINE IN ERRO 
0000 114; RO IS PRESERVED ACROSS CALL. 
0000 116 
0000 117 DCLSERRORMSG:: sOUTPUT ERROR MESSAGE 
3F BB 0000 118 PUSHR #*M<RO,R1,R2,R3,R4,R5> + SAVE REGISTERS 
mam) 6 6UMlClCURS 4 1% BBS #STS$V_INHIB_M MSG,RO,60$ :BR IF NO MESSAGE DESIRED 
0006 121; 
444 : : Check if offending text should be output as part of this error message. 
55 02 00 0006 124° MOVL #285 zASSUME NO COMMAND SET WILL uff OUTPUT 
54 OC 00 0009 125 MOVL #324,R4 SET ARG COUNT AND STACK 
01 €0 Q00C \$6 BBS #WRK_V_COMM :0 NOT OUTPUT IF COMMAND IN EXECUTION 
22 FO AA O0O0E 1 WRK _@ FLAGS (RIO), 40$ 
FFEC’ 30 Bota 128 BSBW DCL SAARKED TOKEN [GET gait OF CURRENT PARSE STRING 
62 95 0014 1<f TSTB (R2 [DOES TOKEN START WITH EOL CHAR? 
18 13 0016 # £130 BEQL nit s1F SO, ASSUME AT EOL a SKIP TEXT 
51 05 pete 131 TSTL R1 ‘WILL ANY TOKEN BE SHOWN 
17 13 QO1A 1 ¢ BEQL 40$ :1F WO ERROR TOKEN, CRIP IT 
OO1e 13 ; 
Gott 135 ; Build the command Line part of the message argument vector. 
7E 3} 7D 001C 137 %0$: mMOva R1,-(SP) 7PUSH SEGMENT DESCRIPTOR ON STACK 
E DD OO1F 138 PUSHL SP [PUSH ADORESS OF SEGMENT DESCRIPTOR 
7E 11 BO 0021 139 MOVW #*x0011 -(SP) SONLY OUTPUT THE TEXT PART 
7E O01 BO 0024 £140 MOVW ONE FAO ARGUMENT 
00053668 F OD 88 7 141 PUSHL acts. CMDSEG ;PUSH MESSAGE CODE 
5 5 00 D 146 MOVL 3SET ARGUMENT COUNT 
54 0 D0 00 14 MOVL #B%4, RG SET STACK USAGE 
O88 ics ; 
148 ; Build the status part of the message argument vector. 
0084 8 D5 133 Los: TSTL PRC_L_STS(R11) ;VALID STS VALUE? 
1 13 i 133 BEQL 45$ 3NO, PROCESS NORMALLY 
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MESSAG = MESSAGE OUTPUT ROUTINES 16=SEP=1984 00:09: AX/VMS Macro V04-00 Pa 6 | 
heen FORMAT MESSAGE aes ae ee ees aT eae ae ” «| 
06 72 .SBTTL FORMAT MESSAGE 
6 124 i DCLSFORMMSG = FORMAT MESSAGE 
60 176 : THIS ROUTINE IS CALLED TO CREATE A MESSAGE VECTOR FOR A MESSAGE AND THEN 
6 127 5 CALL DCLSPUTMSG TO OUTPUT THAT MESSAGE. 
6 173 t INPUTS: | 
| 60 181: RO = ERROR NUMBER | 
60 1 ; : R] = NUMBER OF ARGUMENTS. | 
60 188 R10 = BASE ADDRESS OF COMMAND WORK AREA. | 
060 184 R11 = BASE ADDRESS OF PROCESS WORK AREA. | 
00e0 186 THE FAO ARGUMENTS ARE ON THE STACK, JUST ABOVE THE STORED PC. | 
0060 188 : OUTPUTS: 
0060 189 
9060 190 ; THE ERROR MESSAGE IS DISPLAYED. | 
0060 191; THE FAO ARGUMENTS ARE POPPED FROM THE STACK. | 
9060 198 : R1,R2 ARE DESTROYED | 
0060 19% BCLSFORMMSG: : SOUTPUT MESSAGE 
BE v0 0060 195 MOVL  (SP)+,R2 GET SAVED PC | 
51 DD 006 196 PUSHL RI :PUSH FAO COUNT | 
50 DD 0065 197 PUSHL RO ‘SET STATUS CODE | 
02 C1 0067 198 ADDL3 #2,R1,-(SP) ‘SET # ARGS IN PUTMSG VECTOR | 
5E DO 0068 199 MOVL P-R SET ADDRESS OF THE ARGUMENT VECTOR | 
0 10 006 200 BSBB —«dDCLSPUTMSG :SIGNAL PUTMSG VECTOR AT (RO) | 
08 C0 0070 201 ADDL #8, SP SRESTORE THE STACK | 
1 BEDO 007 202 POPL sR ; 
SE 6E41 DE 0076 20 MOVAL (SP)CR13,SP 
7E 52 DO OO7A 204 MOVL R2,-(SP) RESTORE THE PC 
05 007D 205 RSB : 


| 

$2 

7 51 

$0 

SE 
| 
| 
| 
| 
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VO4=000 put 


of 07 -SBTTL PUTMSG OUTPUT ROUTINE 
7E 209: 
Ove 10 : THIS ROUTINE OUTPUTS A GIVEN PUTMSG MESSAGE VECTOR 
gE \¢ ; INPUTS: 
O7E 13 ; 
O7E 214: R10 = ADDRESS OF COMMAND WORK AREA 
OO7E 215: R11 = ADDRESS OF PROCESS WORK AREA 
bore 16 ; RO = ADDRESS OF PUTMSG VECTOR 
O7E 218 : OUTPUTS: 
ie: i8 ; 
BR rE 0; NONE 
O7E 1 ed 
007E : OCLSPUTMSG: : 
007E DISABLE : DISABLE CONTROL Y/C AST'S 
204(4344 BF DD 00B4 224 SHL #*A'DCL ' : FACILITY 
3E DD OO8A 93 PUSHL SP + MAKE DESCRIPTOR OF NAME 
03 DD Oo08C 6 PUSHL #3 
5E DD OO8E 227 PUSHL SP : ust! ADDRESS OF FACNAM 
04 a0 OC 19 ED 0090 28 CMPZV #STS$V_FAC_NO,#STS$S_FAC_NO,4(RO), 
0 0095 29 #<CLISTABKEYWESTSSM_FAC “AO>S=STS80 F 
02 13 0096 230 BEQL 108 tA OUR ACILITY 
6E 04 0098 231 CLRL = (SP?) : it ANOT OUR FACILITY. TERO F ACNAM PARAMETER 
00 OD OO09A é g 10$: PUSHL #0 t NO ACTION ROUTIN 
50 dD 009C PUSHL RO : RO = ADDRESS OF MESSAGE VECTOR 
00000000'GF 06 FB O09 234 CALLS #6,G*SYSS$PUTMSG ; WRITE THE MESSAGE TO SYSSERROR OUTPUT 
OOAS 235 ENABLE RE-ENABLE CONTROL /Y AST’ 
03 FO AA 01 1 Q0A7 936 C #WRK_V COMMAND, WRK_W ~FLAGS(RI0) 90$ ANCH IF NO IMAGE ACTIVE 
FF51"° 30 OOAC 37 BSBW DCLSCHECK _AST CHECK FOR BENDING AST 
05 OOAF 238 908: RSB 
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v04=0 OUTPUT FILE MESSAGE OUTPUT (FOR SPAWN) 4=SEP-1984 DCL. SRCIMESSAGE .MAR: 1 
5 40 P .SBTTL OUTPUT FILE MESSAGE OUTPUT (FOR SPAWN) 
8 4¢ : DCLSSPAWNOUT = OUTPUT FILE MESSAGE OUTPUT 
08 44 : THSI ROUTINE IS CALLED TO OUTPUT A MESSAGE TO THE OUTPUT FILE. 
0B 46 : INPUTS: 
0B0 47 ; 
OBO 248 : R1 = LENGTH OF MESSAGE. 
0B0 249; R2 = ADDRESS OF MESSAGE. 
0080 30 : R11 = BASE ADDRESS OF PROCESS WORK AREA. 
0080 3g : OUTPUTS: 
0080 254: THE MESSAGE 18 WRITTEN TO THE OUTPUT FILE ANP CONTROL IS RETURNED 
9080 38 F TO THE CALLER 
9080 3 : REGISTERS R3, R4, AND RS ARE PRESERVED ACROSS CALL. 
00B0 259 F 
00B0 260 DCLSSPAWNOUT: : :MESSAGE ouTPU 
50 18 AB 00B0 261 MOVL PRC L_INDOUTRAB(R11) RO _;GET ADDRESS "oF INDIRECT gut put RAB 
04 68 AB OB SCE1~=«s«00B4 36¢ BBC PRE V_YLEVEL,PRC_W_F Mit 11) ) 208 NOT IN CONTROL Y 
50 OC AB 00B9 26 MOVL C_C_OUTRAB(R11);RO «SET A Esko OF OUTPUT FILE RAB 
00BD 264 208: DISABLE | STE CABLE ONTROL vse As! s 
22 a0 51 BO 00C3 265 MOVW -R1,RABSW_RSZ(RO) 'SET SIZE OF OUTP 
28 AO 52 DO 00C7 266 MOVL  R2.RABS$L~RBF (RO) [SET ADDRESS OF DUTPUT RECORD 
00CB 267 $PUT -RAB=(RO)~ [OUTPUT REC 
00D4 268 N sENABLE CONTROL Y/C AST'S 
05 00D6 269 F 
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ESSAG = MESSAGE OUTPUT ROUTINES 1p-SEB-1984 90:0 09: :03 AX/VMS Macro V04-00 Page 9 
4-00 OUTPUT FILE MESSAGE OUTPUT 4=SEP=1984 23:42: DCL. SRCIMESSAGE MAR: 1 | (7) 
D7 71 : .SBTTL OUTPUT FILE MESSAGE OUTPUT 
De 73 : DCLSMSGOUT = OUTPUT FILE MESSAGE OUTPUT 
Ov £3 : THSI ROUTINE IS CALLED TO OUTPUT A MESSAGE TO THE OUTPUT FILE. 
9b? 7 : INPUTS: 
007 279: R1 = LENGTH OF MESSAGE. 
OD? 280: R2 = ADDRESS OF MESSAGE. 
O07 81 : R11 = BASE ADDRESS OF PROCESS WORK AREA. 
0007 es : OUTPUTS: 
0007-285 : THE MESSAGE 18 WRITTEN TO THE OUTPUT FILE AND CONTROL IS RETURNED 
Bap! 387 ; TO THE CALLER 
00D7 288: REGISTERS R3, R4, AND RS ARE PRESERVED ACROSS CALL. 
Sr BS 
00D7 291 DCL$MSGoUT:: yMESSAGE OUTPUT 
50 18 AB dO 00D7 3 MOVL  PRC_L_INDOUTRAB(R11),RO :GET ADDRESS at INDIRECT OUTPUT RAB 
04 68 ABE OB’ SC1+«=C«éO0DB-s«é29 BBC #PRC_0_YLEVEL,PRC_W_FLAGS(R11),20$ ;BR IF NOT IN CONTROL Y 
50 OC AB DO OO0EO $e OVL PRC_C_GUTRAB(R11) RO 3SET AbbRESS” OF OUTPUT FILE RAB 
00E4 295 208 DISABLE ‘DISABLE CONTROL Y/C AST'S 
22 AO 51 BO OOEA 296 OVW — R1,RAB$W_RSZ(RO) [SET SIZE OF OUTPUT RECORD 
28 AO «652~=CC«#0 OOEE 97 MOVL R2 ;RABSL - “RBF (RO) ‘SET ADDRESS OF OUTPUT RECORD 
OOF2 298 UT — RAB=(RO) [OUTPUT RECORD 
OOFB 299 ENABLE +E NABLE CONTROL Y/C AST'S 
03 FO AA 01 é OOFD 300 BBC #WRK_V COMMAND , WRK_W_FLAGS(R10),30$ ;1F CLR, NO COMMAND EXECUTION 
FEFB’ 30 0102 301 BSBW DCLSCHECK.A sCHECK FOR piADING A AST 
05 0105 302 30$:  RSB : 


SSAGE = MESSAGE OUTPUT R 
v04-000 OUTPUT FILE MESSAG 
106 04 
168 ; 
198300 
198 b9 ; 
106 10 ; 
106 113 
106 \¢ ; 
0106 15 3 
0106 14 : 
bige 15 : 
106 16: 
0106 17 ; 
0106 18 : 
0106 19 : 
0106 20 ;- 
0106 $) dC 
0106 ¢ 
06 €1 =O10D 2 
30 68 AB 010F 324 
FEEB’ 30 aiig $52 
FEE8' 30 011 26 
04 5> O81 O1f8 #1«Ser 
1E 13° 0118 328 
7E 51 7D 011D 329 
53 5E DO 0120 330 
0123 331 
0123 $36 
1150 €9 Bigs 33 
00D0 CB’ CBE 7D 0131 334 
10 0136 335 
07 5 E9 0138 336 
00000173'EF 00 FB 0138 337 20 
05 0142 338 30 
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~SBTTL SET FLUSH RATE COMMAND 


+ 

; DCLSSETFLUSH = FLUSH OUTPUT FILE 

; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND 
FLUSH RATE 


: INPUTS: 
10 = BASE ADDRESS OF COMMAND WORK AREA. 
11 = BASE ADDRESS OF PROCESS WORK AREA. 
OUTPUTS: 
THE FLUSH RATE IS SET. 
CLSSETFLUSH: 
STATUS NORMAL 
BBC #PRC V 
ah FLAGS (ANID, 30$ 
BSBW int: ETD 
BSBW DCLG 
CMPL RS, #PTR K NENDLINE 
BEQL 208 
MOV =R1,=(SP) 
VL SP. R3 
SBINTIM_S TIMBUF=(R3) ,~ 
“TIMADR=(R3) 
BLBC ~—_ RO, 308 
MOVQ  (SP)+,PRC_Q_FLUSHTIME(R11) 
BSBB  DCLSSET_TIMER 
BLBC RO, 308 ~ 
$: CALLS #0.FLUSH 
$: SB 


AX/VMS Macro V04-00 
DCL.SRCIMESS 
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AGE .MAR; 1 ) 


TO SET THE OUTPUT BUFFER 


; ASSUME SUCCESS 
; IGNORE IF INTERACTIVE PROCESS 


; SKIP on OPTION KEYWORD 
; WAS A VALUE SPECIFIED? 
; NO, THEN SIMPLY FORCE A FLUSH NOW 


; BUILD DESCRIPTOR FOR DELTA TIME ST 
; CONVERT TIME TO BINARY DELTA FORMA 


BR IF ERROR IN TIME 

; SAVE THE FLUSH TIME INTERVAL 
SET THE TIM che 

BRANCH IF ERROR 

FLUSH THE SuTPUT BUFFER 


; SAVE ADDRESS OF QUAD WORD DECRIPTO. 
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MESSAGE = MESSAGE 0 UTPUT ROUTINES 1o-SEB~1984 Q :09:0¢ AX/VMS Macro v04-00 Page 12 
v04=00 FLUSH OUTPUT FILE 4=SEP=1984 23:42: DCL.SRCJMESSAGE.MAR;1 (10) 
16 64 : .SBTTL FLUSH OUTPUT FILE 
16 66 ; FLUSH_AST = FLUSH OUTPUT FILE 
16 6 ; FLUSH™= FLUSH OUTPUT FILE 
16 $3 : THIS ROUTINE IS CALLED TO FLUSH THE OUTPUT FILE. 
16 4 + INPUTS: | 
O16 73 ; R11 = BASE ADDRESS OF PROCESS WORK AREA. | 
016 s3 : OUTPUTS: 
0168 7 : RO = STATUS | 
O168 379 -ENABLE LSB | 
8188 81 FLUSH_AST: sFLUSH OUTPUT 
087C 0168 S eWORD “M<R2,R3,R4,R5,R6,R11> . 
5B 04 AC DO O16A 38 MOVL 4 (AP).R14 :GET ADDRESS OF PRC DATA STRUCTURE 
56 01 DO O16E 384 MOVL #1,R6 SRESET THE TIMER 
04 11 O17] 385 BRB «108 ; | 
087c 0173 387 FLUSH: .WORD “M<R2,R3,R4,R5,R6,R11> :FLUSH OUTPUT | 
564 0175 88 CLRL = R6 :D0 NOT RESET THE TIMER 
O17 350 | : INITIALIZE TEMPORARY RAB 
5E BC AE 9E 0177 39¢ i0$:  MOVAB = RABSC BLN(SP) ,SP SALLOCATE A RAB ON STACK 
6E 00464 8F 00 6& 00 2¢ O17 393 MOVCS #0, (SPY,#0,#RABSC_BLN, (SP) :ZERO THE RAB(RI NOW CONTAINS | 
0183 395 ASSUME RABSB_BID EQ 0 | 
o183 396 ASSUME RABSB~BLN EQ RABSB_BID+1 
4401 8F B80 O183 398 MOVW § #<RABSC_BID+<RABSC_BLN@8>>,(R1) ;FILL IN BID AND BLN | 
8 DO 0188 400 MOVL  PRC_L_INDOUTRAB(R11) ,RO GET ADDRESS OF INDIRECT OUTPUT RAB | 
0B €1 #O18C 401 BBC #PRO_O_YLEVEL PRC _W_FLAGS(R11),20$ ;BR IF NOT IN CO ¥ | 
Oc AB DO 0191 402 MOVL PRC COUTRABC (R11) 7RO ;SET ADDRESS OF OUTPUT Fite RAB 
02 Ag B0 0193 403 20$: MovW RABENCISI (ROD [COPY PPF ISI TO TEMP. 
019A 405 SFLUSH RAB=(R1) SOUTPUT RECORD 
03 56 «£9 O1A3 406 BLBC = R6, 30 :BRANCH IF NOT RESETING TIMER 
FFOA = 30 DIAG 40 BSBW DCLSSET_TIMER TRESET TH 
01 DO O1A9 408 30$: MOVL  #1,R [SET SUCCESSFUL STATUS 
% Bias et0 me 
O1AD «411 .DISABLE LSB 
O1AD 41g | 
O1AD «41 END 
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$$. TMP) 
$$. 1MP2 
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DCL$01 SABLE 
DCLSERRORMSG 
DCLSFORMMSG 
DCLSGETDVAL 
DCLSMARKEDTOKEN 
DCLSMSGOUT 
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= MESSAGE OUTPUT ROUTINES 


PRC_L_RESTART 
PRC"L-SAVAP 
PRC“L-SAVFP 
PRCL-SEVERITY 
PRC-L-SPWN 
PRC-L-STACKLM 
PRC“L-STACKPT 
PRC“L“STATUS 
PRC“L-STS 
PRC“L-STV 
PRC-L-SYMBOL 
PRC-L-TMBX 
PRC“L-TRMLIST 
PRC~Q-ALLOCREG 
PRC_Q” COMMAND 
PRC-Q-FLUSHT IME 
PRC~Q-GLOBAL 
PRC” IMAGENAME 
PRC~Q"KEYPAD 
PRC~Q"LABEL 
PRC~Q"LOCAL 
PRC~Q"SAVEPRIV 
PRC~T-OUTDVI 
PRC~V~MODE 
PRC-V~YLEVEL 
PRC~W-ASTIOSB 
PRC~W-ASTRETN 
PRC-W~ASTSTATUS 
PRC~W-ATTMBX 
PRC~W~FLAGS 
PRC~W-INPCHAN 
PRC~W~ONLEVEL 
PRC"W-OUTIF I 
PRC~W-OUTISI 
PRC~W~OUTMBXCHN 
PRC~W~OUTMBXREF 
PRC~W~OUTMBXS1Z 
PRC~W~PMPTCTRL 
PRC~W-WAITIOSB 
PTR-B-LEVEL 
PTR-B-NUMBER 
PTR-B-PARMCNT 
PTR~B-VALUE 
PTR” C"LENGTH 
PTR~K~ENDLINE 
PTR7K-LENGTH 
PTR7L-DESCR 
PTR-L-ENTITY 
RABSB_BID 
RABSB_BLN 
RABSC-BID 

RABSC BLN 

RABSL REF 
RABSWISI 
RABSW-RSZ 
STS$M~FAC_NO 
STS$S"FAC_NO 
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MESSAGE 
Symbol table 


STSS$V_FAC_NO 
TS$V_INHTB_MSG 
YSSBINTIM 
SYSSCANTIM 
SYSSFLUSH 
SYSSPUT 
SYSSPUTMSG 


nn 


WRK~B~PARMSUM 
WRK~B-RECALLCNT 
WRK LEV 


WRK-L~PROPTR 
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. ABS 
SABS$ 
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= MESSAGE OUTPUT ROUTINES 


! Psect synopsis ! 


teem eerwoena neem necere } 


PSECT No. Attributes 


O33) Ore 43 


Macro V04-00 
RC JMESSAGE .MAR; 1 


NOPIC 
NOP ii 


NOSHR NOEXE NORD NOWRT NOVE 


MESSAGE = MESSAGE OUTPUT ROUTINES 
Psect synopsis 


The working set_Limit was 1350 p 
There were 60 pages of symbol table space allocated to hold 
48 pages of virtual memory were used to define 33 macros. 


+ 
; Macro Library 


Macro Library name Macros defined 
-$255$DUA28: CSYSLIBIJSYSBLDMLB.MLB; 1 0 
-8255$DUA28: (COCL.OBJIJDCL.MLB; 1 

_8255$DUA28: CSYS.OBJILIB.MLB; 1 

$255$DUA28: CSYSLIBJSTARLET.MLB; 2 1 
TOTALS (all Libraries) 2 


1280 GETS were required to define 27 macros. 
There were no errors, warnings or information messages. 


DCLSZCODE QOOOO1AD ¢ 429.) 02 ¢ 2. 
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! Performance indicators ! 


¢aemrremecoanan Seco w een eae aoa $ 


Initialization a 0: £00.08 0:00 
Command processing Bs 0:00:00.74 0:00 
Pass 28 0: Aioe8 0:0 
Ty beet A Sales Hs 
Sym table output :00:00. : 
bol 19 00:00 06 18 0:0 
Psect synopsis output 3 00:00:00.02 0:0 
Cross-reference output 00:00:00.00 00:0 
Assembler run totals 470 00:00:16.01 00:0 


16-SEP-1984 00:09: AX/VMS Macro v04-00 
4-SEP-1984 5 03:08 DCL.SRCJMESSAGE .MAR; 1 
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Phase Page faults CPU Time Elapsed Time 
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ages. 
57392 bytes (113 pages) of virtuat memory were used to buffer the intermediate code. 


1035 non-local and 15 local symbols. 


413 source Lines were read in Pass 1, producing 14 object records in Pass 2. 


statistics ! 
+ 


MACRO/LIS=LIS$:MESSAGE/OBJ=OBJ$:MESSAGE MSRC$:MESSAGE/UPDATE=(ENHS: MESSAGE) +EXECML$/L1B+L1B$:DCL/LIB+SYS$LIBRARY :SYSBLDMLB/LIB 
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